home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 9
/
009.d81
/
card - guy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
158 lines
5 poke53248+21,0
10 bo=53280:ba=53281:sc=1024:cc=55296:x=156:x1=4:v=53248:s=54272:mu=-1
15 dimvh(25),vl(25),vd(25),uh(21),ul(21),ud(21),wh(21),wl(21),wd(21)
20 pokebo,4:pokeba,1:print"[147][144]";
25 fort=1to8:reada(t):next
30 fort=1to25:readvh(t),vl(t),vd(t):next
35 fort=1to19:readuh(t),ul(t),ud(t):next
40 fort=1to21:readwh(t),wl(t),wd(t):next
45 fort=12288to12798:reada:poket,a:next
50 print"[147] touch any key, sweetie"
55 geta$:ifa$=""then55
60 pokev+21,195
65 fort=0to7:poke2040+t,192+t:next
70 fort=0to10step2:pokev+t,172:next
75 pokev+12,75:pokev+14,255:pokev+8,161
80 pokev+1,191:pokev+3,210:pokev+5,210:pokev+7,191:pokev+9,171
85 pokev+11,191:pokev+13,100:pokev+15,190
90 pokev+28,63:pokev+37,0:pokev+38,7
95 fort=39to44:pokev+t,2:next
100 pokev+45,15:pokev+46,15:pokev+29,16
105 pokev+39,2:pokevv+40,2:pokev+41,2:pokev+42,2:pokev+43,14:pokev+44,2
110 pokev+45,12:pokev+46,12
115 gosub340:gosub140:gosub210
120 goto63000
125 pokebo,6:pokeba,3:print"[147]"
130 x=154:x1=14:gosub340
135 return
140 print"";
145 print,"[154][157][157] [166] [166] ",,;
150 print,,"[157] [166] [166] [166][166][166] [166] [166]"
155 print,"[157] [166] [166] [166] [166] [166] [166]";
160 print,"[157] [166] [166] [166] [166] [166]"
165 print,"[157] [166] [166] [166] [166] [166]";
170 print,"[157] [166] [166][166][166] [166][166][166]"
175 print,"[152] deserve the best"
180 print,,"[158] [162] "
185 print,,"[157][169][146][169][169][146][169]",,;
190 print,,"[157][157][169][146][169][169][146][169]"
195 print,,"[157][157] [184] "
200 print,,"[156][157][157][157][157]can give"
205 return
210 fort=stos+24:poket,0:next
215 pokes+24,15:pokes+5,66:pokes+12,66:pokes+19,66
220 pokes+6,130:pokes+13,130:pokes+20,130
225 q=1:y=1:z=1
230 vd(q)=vd(q)-1:ifvd(q)=0thenpokes+4,16:q=q+1
235 ud(y)=ud(y)-1:ifud(y)=0thenpokes+11,16:y=y+1
240 wd(z)=wd(z)-1:ifwd(z)=0thenpokes+18,16:z=z+1
245 mu=-mu:poke2046,peek(2046)+mu:poke2047,peek(2047)-mu
250 fort=1to30:next
255 pokes,vl(q):pokes+1,vh(q)
260 pokes+7,ul(y):pokes+8,uh(y)
265 pokes+14,wl(z):pokes+15,wh(z)
270 pokes+4,17:pokes+11,17:pokes+18,17
275 ifq=25then310
280 ifq=20thengosub305
285 ifq=19thengosub295
290 fort=1to100:next:goto230
295 k=k+1:ifk<4thenreturn
300 gosub125:return
305 pokev+21,220:return
310 print"[151]","you're my perfect ten"
315 print," sherry":rem your sweetheart's name here
320 pokev+21,252
325 fort=150to0step-1:pokes+24,t/10:pokev+11,t:fori=1to10:next:next
330 print,," love,",,," mark":rem your name here
335 return
340 printchr$(x)" [211] [211] [211] [211] [211] [211] [211] [211] [146]";
345 fort=1to23:print" [211] ",,,"[146] [211] ";:next
350 print" [211] [211] [211] [211] [211] [211] [211] [211] "
351 poke1024+((40*24)+39),160:poke55296+((40*24)+39),4
355 fort=1to8step2:pokesc+a(t),a(t+1):pokecc+a(t),0:next
360 pokesc+999,160:pokecc+999,x1:return
365 data45,105,74,95,925,223,954,233
370 rem music data
375 data50,60,2,50,60,1,56,99,2,50,60,2,67,15,2,63,75,4,50,60,1,50,60,1
380 data56,99,2,50,60,2,75,69,2,67,15,4,50,60,1,50,60,1,100
385 data121,2,84,125,2,67,15,2,63,75,2,56,99,4,89,131,1,89,131
390 data1,84,125,2,67,15,2,75,69,2,67,15,6
395 data0,0,2,0,0,1,42,62,4,50,60,6,42,62,1,37,162,1,25,30,4,37,162,1,63,75,1
400 data50,60,6,84,125,2,67,15,2,50,60,2,44,193,4,44,193,4
405 data67,15,2,50,60,2,63,75,2,50,60,6,0,0,2,0,0,1,8,97
410 data4,6,167,2,6,71,4,4,180,2,6,71,4,4,180,2,4,48,2,8,97,2
415 data6,71,2,8,97,4,10,143,2,11,48,2,5,152,4,5,71,1,4,180,1,4,48,4
420 data6,71,2,8,97,2,4,48,4
425 rem sprites data
430 data002,170,168,010,170,170,042,191
435 data234,170,191,250,170,255,254,170
440 data255,254,175,255,254,165,085,085
445 data173,085,085,173,087,085,237,087
450 data213,253,087,245,255,243,252,255
455 data243,255,255,207,255,063,085,084
460 data063,085,084,015,255,255,015,250
465 data175,003,255,255,000,255,252,002
470 data010,255,160,042,190,168,170,170
475 data170,170,170,170,170,170,170,168
480 data170,138,168,170,138,170,170,170
485 data242,170,175,242,170,175,242,170
490 data175,241,000,031,241,085,095,255
495 data085,127,063,000,060,001,085,080
500 data001,085,080,001,093,080,001,093
505 data080,001,093,080,002,170,170,040
510 data170,255,170,170,190,170,170,170
515 data170,170,170,170,042,170,168,010
520 data170,160,002,170,160,002,170,160
525 data002,170,160,002,170,160,002,170
530 data160,001,000,016,001,085,080,001
535 data085,080,001,085,080,001,085,080
540 data001,085,080,001,081,080,001,081
545 data080,001,081,080,002,170,042,040
550 data254,170,191,254,170,191,254,255
555 data191,254,255,191,254,255,191,254
560 data255,191,252,255,063,253,085,127
565 data253,085,127,253,093,127,253,093
570 data127,253,127,127,252,255,063,252
575 data255,063,252,255,063,253,085,127
580 data253,085,127,252,255,063,252,234
585 data063,252,255,063,255,000,255,002
590 data085,085,085,085,085,085,106,170
595 data169,104,160,009,096,160,009,096
600 data162,137,104,162,137,104,162,137
605 data104,162,137,104,162,137,104,162
610 data137,104,162,137,104,162,137,104
615 data162,137,104,162,137,104,162,137
620 data096,032,009,096,032,009,106,170
625 data169,085,215,085,087,215,213,000
630 data010,128,000,136,136,128,136,136
635 data138,136,136,136,138,136,138,128
640 data002,008,128,002,010,170,000,000
645 data170,000,000,000,000,000,010,002
650 data128,042,138,160,170,170,040,170
655 data170,040,170,168,168,170,162,168
660 data042,170,160,010,170,128,002,170
665 data000,000,168,000,000,032,000,000
670 data000,000,000,000,000,000,000,000
675 data000,000,003,224,000,063,224,003
680 data255,224,003,255,224,003,252,032
685 data003,192,032,002,000,032,002,000
690 data032,002,000,032,002,007,160,002
695 data015,224,122,015,224,254,015,192
700 data254,007,128,252,000,000,120,000
705 data000,000,000,000,000,000,000,000
710 data000,000,000,000,000,000,000,000
715 data000,000,000,000,000,062,000,000
720 data063,240,000,063,255,000,063,255
725 data000,035,255,000,032,062,000,064
730 data002,000,064,002,000,064,002,015
735 data064,004,031,192,004,031,192,244
740 data031,129,252,015,001,252,000,001
745 data248,000,000,240,000,000,000,000
63000 fordl=1to5000:next:pokev+21,0
63010 print"[147][144]want to run it again <y/n>?"
63020 poke198,0:wait198,1:getk$
63030 ifk$<>"y"andk$<>"n"thenpoke53280,rnd(1)*15:goto63020
63040 ifk$="y"thenrun
63050 print"[147]load"chr$(34)"c.payload"chr$(34)",8":print"run"
63060 poke631,13:poke632,13:poke198,2:end